home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
BUDGET.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
595b
|
24 lines
' BUDGET.BAS
' This program helps you figure out how much money is
' left over after you've paid your monthly bills.
CLS
COLOR 2 ' green foreground
PRINT "Budget Calculator"
COLOR 7 ' restore default white foreground
PRINT
INPUT "Enter your total income for this month: $", total!
PRINT
INPUT "How many bills will you have this month? ", bills%
FOR i% = 1 TO bills%
PRINT "Enter expense #"; i%;
INPUT ": $", thisExpense!
total! = total! - thisExpense!
NEXT i%
PRINT
PRINT "You have $"; total!; "left over this month."